Sub SertifikaOlustur()

    Set p = Sheets("Panel")

    adSoyad = p.Range("B6")
    egitim = p.Range("B7")
    baslangic = p.Range("B8")
    bitis = p.Range("B9")
    sure = p.Range("B10")
    puan = p.Range("B11")
    belgeNo = p.Range("B12")
    egitmen = p.Range("B13")

    If adSoyad = "" Then
        MsgBox "Önce ID girip katılımcı bilgilerini getirin."
        Exit Sub
    End If

    Set ppt = CreateObject("PowerPoint.Application")
    ppt.Visible = True

    Set sunum = ppt.Presentations.Add
    sunum.PageSetup.SlideWidth = 960
    sunum.PageSetup.SlideHeight = 540

    Set slayt = sunum.Slides.Add(1, 12)

    ' Arka plan
    Set sekil = slayt.Shapes.AddShape(1, 0, 0, 960, 540)
    sekil.Fill.ForeColor.RGB = RGB(248, 244, 236)
    sekil.Line.Visible = 0

    ' Dış çerçeve
    Set sekil = slayt.Shapes.AddShape(1, 35, 35, 890, 470)
    sekil.Fill.Transparency = 1
    sekil.Line.ForeColor.RGB = RGB(130, 96, 45)
    sekil.Line.Weight = 3

    ' İç çerçeve
    Set sekil = slayt.Shapes.AddShape(1, 55, 55, 850, 430)
    sekil.Fill.Transparency = 1
    sekil.Line.ForeColor.RGB = RGB(201, 167, 95)
    sekil.Line.Weight = 1.5

    ' Üst başlık
    Set yazi = slayt.Shapes.AddTextbox(1, 130, 80, 700, 60)
    yazi.TextFrame.TextRange.Text = "KATILIM BELGESİ"
    yazi.TextFrame.TextRange.Font.Name = "Georgia"
    yazi.TextFrame.TextRange.Font.Size = 34
    yazi.TextFrame.TextRange.Font.Bold = True
    yazi.TextFrame.TextRange.Font.Color.RGB = RGB(82, 58, 30)
    yazi.TextFrame.TextRange.ParagraphFormat.Alignment = 2

    ' Açıklama
    Set yazi = slayt.Shapes.AddTextbox(1, 170, 155, 620, 35)
    yazi.TextFrame.TextRange.Text = "Bu belge, aşağıda adı geçen katılımcının eğitimi başarıyla tamamladığını gösterir."
    yazi.TextFrame.TextRange.Font.Name = "Calibri"
    yazi.TextFrame.TextRange.Font.Size = 17
    yazi.TextFrame.TextRange.Font.Color.RGB = RGB(80, 80, 80)
    yazi.TextFrame.TextRange.ParagraphFormat.Alignment = 2

    ' Katılımcı adı
    Set yazi = slayt.Shapes.AddTextbox(1, 150, 205, 660, 60)
    yazi.TextFrame.TextRange.Text = adSoyad
    yazi.TextFrame.TextRange.Font.Name = "Georgia"
    yazi.TextFrame.TextRange.Font.Size = 36
    yazi.TextFrame.TextRange.Font.Bold = True
    yazi.TextFrame.TextRange.Font.Color.RGB = RGB(35, 35, 35)
    yazi.TextFrame.TextRange.ParagraphFormat.Alignment = 2

    ' Eğitim adı
    Set yazi = slayt.Shapes.AddTextbox(1, 160, 280, 640, 40)
    yazi.TextFrame.TextRange.Text = egitim
    yazi.TextFrame.TextRange.Font.Name = "Calibri"
    yazi.TextFrame.TextRange.Font.Size = 23
    yazi.TextFrame.TextRange.Font.Bold = True
    yazi.TextFrame.TextRange.Font.Color.RGB = RGB(130, 96, 45)
    yazi.TextFrame.TextRange.ParagraphFormat.Alignment = 2

    ' Eğitim detayları
    Set yazi = slayt.Shapes.AddTextbox(1, 155, 335, 650, 35)
    yazi.TextFrame.TextRange.Text = Format(baslangic, "dd.mm.yyyy") & " - " & Format(bitis, "dd.mm.yyyy") & _
                                  " / " & sure & " / Başarı Puanı: " & puan
    yazi.TextFrame.TextRange.Font.Name = "Calibri"
    yazi.TextFrame.TextRange.Font.Size = 16
    yazi.TextFrame.TextRange.Font.Color.RGB = RGB(70, 70, 70)
    yazi.TextFrame.TextRange.ParagraphFormat.Alignment = 2

    ' Sol alt belge no
    Set yazi = slayt.Shapes.AddTextbox(1, 80, 430, 250, 30)
    yazi.TextFrame.TextRange.Text = "Belge No: " & belgeNo
    yazi.TextFrame.TextRange.Font.Name = "Calibri"
    yazi.TextFrame.TextRange.Font.Size = 13
    yazi.TextFrame.TextRange.Font.Color.RGB = RGB(90, 90, 90)

    ' Sağ alt eğitmen
    Set yazi = slayt.Shapes.AddTextbox(1, 650, 405, 220, 30)
    yazi.TextFrame.TextRange.Text = egitmen
    yazi.TextFrame.TextRange.Font.Name = "Georgia"
    yazi.TextFrame.TextRange.Font.Size = 18
    yazi.TextFrame.TextRange.Font.Bold = True
    yazi.TextFrame.TextRange.Font.Color.RGB = RGB(35, 35, 35)
    yazi.TextFrame.TextRange.ParagraphFormat.Alignment = 2

    Set yazi = slayt.Shapes.AddTextbox(1, 650, 435, 220, 25)
    yazi.TextFrame.TextRange.Text = "Eğitmen"
    yazi.TextFrame.TextRange.Font.Name = "Calibri"
    yazi.TextFrame.TextRange.Font.Size = 13
    yazi.TextFrame.TextRange.Font.Color.RGB = RGB(90, 90, 90)
    yazi.TextFrame.TextRange.ParagraphFormat.Alignment = 2

    ' Süs çizgisi
    Set sekil = slayt.Shapes.AddShape(1, 345, 390, 270, 3)
    sekil.Fill.ForeColor.RGB = RGB(201, 167, 95)
    sekil.Line.Visible = 0

    MsgBox "PowerPoint sertifikası oluşturuldu."

End Sub